wine = read.csv("wine-quality-white-and-red.csv")
head(wine)
str(wine)
wine[, 'type'] <- as.factor(wine[, 'type'])
str(wine)
nrow(wine)
ncol(wine)
wine <- wine[!duplicated(wine), ]
nrow(wine)
set.seed(42)
rows <- sample(nrow(wine))
wine <- wine[rows, ]
nrow(wine)
library(ggplot2)
for (xx in 1:(length(wine)-2) ) {
for (yy in (xx+1):(length(wine)-1) ) {
print(xx)
print(yy)
p <- ggplot(wine, aes(x=wine[,xx], y=wine[,yy], color=quality)) +
geom_point() +
labs( x = colnames(wine)[xx], y = colnames(wine)[yy], title = paste(colnames(wine)[yy],"vs",colnames(wine)[xx]) )
print(p)
}
}





























































